home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource Library: Multimedia
/
Resource Library: Multimedia.iso
/
hypercrd
/
xcmds
/
shwdlg16.hqx
/
ShowDialog XCMD 1.6
/
card_12118.txt
< prev
next >
Wrap
Text File
|
1989-05-10
|
5KB
|
248 lines
-- card: 12118 from stack: in.6
-- bmap block id: 12311
-- flags: 0000
-- background id: 16130
-- name: SD Main Menu
-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=357 top=75 right=132 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ShowDialog Tips
----- HyperTalk script -----
on mouseUp
visual dissolve fast
go cd "User Interface Menu"
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=28 top=154 right=211 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Using ResEdit
----- HyperTalk script -----
on mouseUp
visual dissolve fast
go cd "ResEdit"
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=194 top=233 right=290 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Who did this?
----- HyperTalk script -----
on mouseUp
If ColorOn() then
CreditsDialog 4747,1040,1041
else CreditsDialog 4747,1042,1041
ShowDialog 5,5005,52
end mouseUp
-- This is a knock-off, but fully functional, XCMD that displays
-- two PICTs in sequence. It makes a nifty "About..." dialog.
-- Its parameters are:
-- CreditsDialog <DLOG resource ID>,<1st PICT ID#>,<2ed PICT ID#>
-- As always, there are two other optional parameters:
-- <top coord>,<left coord>
-- It zooms in from the top, left corner of the Mac screen,
-- (NOT the card window). It does this even in color mode!
-- If the specified PICTs are missing, the XCMD beeps.
-- part 12 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=194 top=75 right=132 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ShowDialog XCMD Types
----- HyperTalk script -----
on mouseUp
visual dissolve fast
go cd "XCMD Types Menu"
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=357 top=233 right=290 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ShowDialog Registration
----- HyperTalk script -----
on mouseUp
visual dissolve fast
go cd "Shareware"
end mouseUp
-- part 15 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Startup
-- part 16 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=156 top=120 right=147 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
-- part 19 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=357 top=154 right=211 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Auxiliary X-Commands
----- HyperTalk script -----
on mouseUp
visual dissolve fast
go cd "Auxiliary X-Commands"
end mouseUp
-- part 20 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=194 top=154 right=211 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pict Maker
----- HyperTalk script -----
on mouseUp
visual dissolve fast
go cd "PICT Maker Menu"
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=28 top=75 right=132 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: What is ShowDialog?
----- HyperTalk script -----
on mouseUp
visual dissolve fast
go cd "What is ShowDialog"
send mouseUp to cd btn ID 1
end mouseUp
-- part 26 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=28 top=233 right=290 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 15849 / 15849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Trouble Shooting
----- HyperTalk script -----
on mouseUp
visual dissolve fast
go cd "Trouble Shooting"
end mouseUp
-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=482 top=41 right=55 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 2048
-- line height: 12
-- part name:
-- part contents for card part 15
----- text -----
Main Menu
-- part contents for card part 16
----- text -----
Yes
-- part contents for card part 27
----- text -----
1.6